home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / squeeze.l < prev    next >
Text File  |  2007-02-28  |  315b  |  10 lines
  1. 9000 PROC SQUEEZE(REF STRING$) CLOSED
  2. 9010 IF STRING$<>"" THEN
  3. 9020 START:=1
  4. 9030 WHILE ((STRING$(START)=" ") AND (START<LEN(STRING$))) DO START:+1
  5. 9040 END'POS:=LEN(STRING$)
  6. 9050 WHILE ((STRING$(END'POS)=" ") AND (END'POS>START)) DO END'POS:-1
  7. 9060 STRING$:=STRING$(START:END'POS)
  8. 9070 ENDIF 
  9. 9080 ENDPROC SQUEEZE
  10.